home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DBLTAKE1.DSK / DOUBLE-TAKE DEMO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  15KB  |  263 lines
  1. 0  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>================<CTRL-M>DOUBLE-TAKE DEMO<CTRL-M>MARK S. SIMONSEN<CTRL-M>(C) 1983<CTRL-M>BEAGLE BROS INC.<CTRL-M>================<CTRL-M>
  2. 1  HOME : PRINT "#":A =  PEEK(1024): PRINT  CHR$(12): HOME : IF A < >163  THEN  PRINT "SWITCH TO NORMAL TEXT SCREEN BEFORE": PRINT "RUNNING THIS PROGRAM.": STOP 
  3. 2  PRINT  CHR$(4)"NOMONICO"
  4. 3  IF  PEEK(104) <12  THEN  POKE 104,12: POKE 3072,0: PRINT  CHR$(4)"RUN DOUBLE-TAKE DEMO"
  5. 4  GOTO 7
  6. 5  FOR I = 1 TO FI: PRINT LINE$;: NEXT : PRINT SEG$;: POKE 2039,174: RETURN 
  7. 6  FOR I = 1 TO FI: CALL 768: VTAB 1: HTAB 1: PRINT LINE$;: NEXT : RETURN 
  8. 7  SPEED= 255: TEXT : NORMAL : HOME :PAUSE = 1000:SPD = 125:S2 = 240
  9. 8  DIM L$(29),L2$(39),L3$(27),L4$(22),L5$(16)
  10. 9 SEG$ = "......................................."
  11. 10 LINE$ = SEG$ +"."
  12. 11  VTAB 24: PRINT SEG$;: POKE 2039,174: FOR I = 23 TO 1  STEP  -1: VTAB I: HTAB 1: PRINT LINE$;: NEXT 
  13. 12  GOSUB 118: GOSUB 120: GOSUB 122: GOSUB 124: GOSUB 154: GOSUB 194: GOSUB 222: GOSUB 245
  14. 13  CALL 820
  15. 14  IF  PEEK( -1101) < >6  THEN  POKE 54,96: POKE 55,3: CALL 1002
  16. 15  VTAB 1: HTAB 15: PRINT "Beagle Bros"
  17. 16 FI = 23: GOSUB 6
  18. 17  VTAB 24: HTAB 15: PRINT "Beagle Bros": PRINT LINE$;: PRINT SEG$;: POKE 2039,174: HTAB 16: PRINT "Presents"
  19. 18 FI = 20: GOSUB 5
  20. 19 FI = 21: GOSUB 6
  21. 20  VTAB 24: HTAB 16: PRINT "Presents": PRINT LINE$;: PRINT LINE$;: PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT ":             :": NORMAL 
  22. 21  PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT "  DOUBLE-TAKE  ": NORMAL : PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT ":             :": NORMAL 
  23. 22 FI = 15: GOSUB 5
  24. 23 FI = 2: GOSUB 6
  25. 24  POKE  -16299,0
  26. 25  GOSUB 104: POKE  -16300,0: GOSUB 104: POKE  -16299,0
  27. 26  VTAB 13: HTAB 19: PRINT "By"
  28. 27  GOSUB 104: POKE  -16300,0: GOSUB 104: POKE  -16299,0
  29. 28  VTAB 15: HTAB 14: PRINT "Mark Simonsen"
  30. 29  GOSUB 104: POKE  -16300,0
  31. 30 A$ = "...2-WAY SCROLL........................."
  32. 31 B$ = "................MULTIPLE UTILITY DISK..."
  33. 32  FOR I = 1 TO 40: VTAB 18: PRINT  RIGHT$(B$,I): VTAB 20: HTAB 41 -I: PRINT  LEFT$(A$,I): NEXT 
  34. 33  VTAB 18: PRINT LINE$;"...2-WAY SCROLL/MULTIPLE UTILITY DISK...";LINE$
  35. 34 VT = 23: GOSUB 106
  36. 35  GOSUB 110
  37. 36  GOSUB 116
  38. 37  CALL 820
  39. 38  SPEED= SPD
  40. 39  VTAB 1: HTAB 1: PRINT "A hundred times a day, you type LIST": PRINT "and your Applesoft Listings dutifully": PRINT "appear on your monitor..."
  41. 40  GOSUB 103: SPEED= S2
  42. 41  VTAB 14: FOR I = 1 TO 10: HTAB 3: PRINT L$(I): NEXT 
  43. 42  GOSUB 103: SPEED= SPD
  44. 43  VTAB 3: HTAB 27: PRINT "then promptly": PRINT "scroll off of the screen into Hyper-": PRINT "Space.": GOSUB 115
  45. 44  GOSUB 103: SPEED= S2
  46. 45  VTAB 23: FOR I = 10 TO 28: PRINT L$(I): NEXT : PRINT L$(29);
  47. 46  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  48. 47  GOSUB 108
  49. 48  SPEED= SPD: POKE 35,9
  50. 49  PRINT "If the program line you are looking for": PRINT "goes by, you must LIST AGAIN to read it.";: PRINT "There's a better way.": PRINT 
  51. 50  INVERSE : PRINT "2-WAY SCROLLING:";: NORMAL : PRINT " Now you can list your": PRINT "programs (all or part) with the added": PRINT "ability to CHANGE LIST-DIRECTION using": PRINT "the Apple Arrow Keys. Your monitor"
  52. 51  PRINT "becomes a 'Search Window' to be moved": PRINT "UP AND DOWN through a listing at will."
  53. 52  GOSUB 103: SPEED= S2
  54. 53  GOSUB 115: FOR I = 19 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L$(I): NEXT 
  55. 54  GOSUB 103: VTAB 23: PRINT : FOR I = 11 TO 28: PRINT L$(I): NEXT : PRINT L$(29);: HTAB 1: GOSUB 103: FOR I = 19 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L$(I): NEXT 
  56. 55  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  57. 56  TEXT : POKE  -16299,0
  58. 57  HOME : GOSUB 116: POKE  -16300,0
  59. 58  GOSUB 114: POKE 35,7: SPEED= SPD
  60. 59  VTAB 1: HTAB 1: PRINT "If you're tired of looking at regular": PRINT "Applesoft Listings, DOUBLE-TAKE provides";: PRINT "an optional way to list your programs.": PRINT 
  61. 60  INVERSE : PRINT "IMPROVED LIST-FORMAT:";: NORMAL : PRINT " Each program": PRINT "statement is listed on a new line for": PRINT "easy tracing of program flow, and FAST": PRINT "de-bugging. Commands are properly spaced";
  62. 61  PRINT "(one space between words, not two) and": PRINT "much easier to read."
  63. 62  GOSUB 103
  64. 63  SPEED= S2
  65. 64  GOSUB 115: VTAB 14: FOR I = 1 TO 38: PRINT L2$(I): NEXT : PRINT L2$(39);: HTAB 1
  66. 65  GOSUB 114
  67. 66  SPEED= SPD: VTAB 8: PRINT "The Improved List-Format supports 2-WAY": PRINT "SCROLLING also."
  68. 67  SPEED= S2: GOSUB 115: GOSUB 103: FOR I = 29 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L2$(I): NEXT 
  69. 68  GOSUB 103: FOR I = 10 TO 38: VTAB 23: PRINT L2$(I): NEXT : PRINT L2$(39);: HTAB 1: GOSUB 103: FOR I = 29 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L2$(I): NEXT 
  70. 69  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  71. 70  GOSUB 109
  72. 71  SPEED= SPD: PRINT "High-speed PRINTER LISTINGS in Improved": PRINT "Format or Regular Format are a snap": PRINT "(in any column width)."
  73. 72  SPEED= 255:VT = 11: GOSUB 106
  74. 73  TEXT : POKE  -16299,0
  75. 74  HOME : GOSUB 116: POKE  -16300,0
  76. 75  SPEED= SPD: VTAB 1: HTAB 1: INVERSE : PRINT "MONITOR-LISTINGS";: NORMAL : PRINT " feature 2-Way Scroll": PRINT "too. Dis-assembled Machine Code is": PRINT "scanned quickly in BOTH DIRECTIONS."
  77. 76  GOSUB 115: GOSUB 103: VTAB 14: SPEED= S2: FOR I = 1 TO 26: PRINT L3$(I): NEXT : PRINT L3$(27);: HTAB 1: GOSUB 103: FOR I = 17 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L3$(I): NEXT 
  78. 77  GOSUB 103
  79. 78  SPEED= SPD: GOSUB 114: VTAB 5: PRINT "Not to mention informative 2-Way": PRINT "Hex/Ascii dumps--":
  80. 79  SPEED= S2: GOSUB 115: POKE 32,1: POKE 33,38: GOSUB 111: GOSUB 103: FOR I = 1 TO 22: PRINT L4$(I);: NEXT : HTAB 1: GOSUB 103: FOR I = 12 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L4$(I);: NEXT 
  81. 80  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  82. 81  TEXT : POKE  -16299,0
  83. 82  HOME : GOSUB 116: POKE  -16300,0
  84. 83  VTAB 1: HTAB 1
  85. 84  SPEED= SPD: INVERSE : PRINT "CATALOGS";: NORMAL : PRINT " feature fast 2-Way Scroll too,": PRINT "speeding up location of file names. Hit": PRINT "the Left Arrow Key to SCROLL BACKWARD,"
  86. 85  PRINT "any key to continue forward, or ctrl-C": PRINT "for a clean break."
  87. 86  GOSUB 103: GOSUB 115: VTAB 14: SPEED= S2: PRINT "DISK VOLUME 254      98 FREE SECTORS": PRINT : FOR I = 1 TO 7: PRINT L5$(I): NEXT : PRINT L5$(8);: GOSUB 103
  88. 87  POKE 34,14: VTAB 23: HTAB 1: FOR I = 8 TO 15: PRINT L5$(I): NEXT : PRINT L5$(16);: GOSUB 103: GOSUB 103
  89. 88  HTAB 1: FOR I = 7 TO 1  STEP  -1: CALL 768: VTAB 15: PRINT L5$(I): NEXT 
  90. 89  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  91. 90  TEXT : GOSUB 112: SPEED= SPD
  92. 91  VTAB 1: INVERSE : PRINT "BONUS UTILITIES:";: NORMAL : PRINT " Any or all of the": PRINT "following enhancements may be hidden in": PRINT "memory, unseen until accessed--": PRINT : PRINT 
  93. 92  PRINT "CROSS REFERENCE: Displays existing": PRINT "variables, strings, arrays & the line": PRINT "numbers on which each occurs--": PRINT 
  94. 93  PRINT "   A$:   100 200 250 300": PRINT "   X:    10 20 3000 3010 3020": PRINT "   Y:    50 3000 4000 5200": PRINT : PRINT 
  95. 94  PRINT "VARIABLE DISPLAY: Displays all program": PRINT "variables & strings with each one's": PRINT "current value--": PRINT 
  96. 95 Q$ =  CHR$(34): PRINT "   A$  = ";Q$;"NOW IS THE TIME";Q$: PRINT "   X   = 255": PRINT "   Y   = 3.14159": PRINT 
  97. 96  SPEED= 255:VT = 24: GOSUB 106
  98. 97  POKE 34,5: GOSUB 113: SPEED= SPD
  99. 98  VTAB 6: HTAB 1: PRINT "Better RENUMBER and APPEND: Append": PRINT "program lines ANYWHERE into other": PRINT "programs (not just at the end) without": PRINT "renumbering.": PRINT : PRINT 
  100. 99  PRINT "PLUS: Free-Space On Disk, Enter Monitor": PRINT "Commands from Basic, Fast Program-Stats,";: PRINT "Built-in Hex/Dec Converter, Control-"
  101. 100  PRINT "Character Display, Cursor Omit or": PRINT "Replace, Applesoft Auto-Line-Numbering": PRINT "... and MORE!"
  102. 101  PRINT : PRINT : PRINT "DOUBLE-TAKE is compatible with Apple II,";: PRINT "II+ and IIe, DOS 3.3, PRONTO-DOS and": PRINT "GPLE."
  103. 102  TEXT : VTAB 22: PRINT : SPEED= 255: PRINT  CHR$(4)"PR#0": END 
  104. 103  FOR I = 1 TO PAUSE: NEXT : RETURN 
  105. 104  FOR I = 1 TO PAUSE/4: NEXT : RETURN 
  106. 105  FOR J = 1 TO 10: NEXT : RETURN 
  107. 106  VTAB VT: HTAB 4: PRINT "<RETURN> to continue, <Q> to quit  "; CHR$(8);: GET A$: IF A$ < >"Q"  THEN  RETURN 
  108. 107  POP : TEXT : SPEED= 255: VTAB 22: PRINT : PRINT  CHR$(4)"PR#0": END 
  109. 108  FOR I = 1 TO 40: POKE 33,I: HOME : GOSUB 105: NEXT : RETURN 
  110. 109  FOR I = 39 TO 0  STEP  -1: POKE 32,I: POKE 33,40 -I: HOME : GOSUB 105: NEXT : RETURN 
  111. 110  FOR I = 1 TO 20: POKE 32,20 -I: POKE 33,2 *I: HOME : GOSUB 105: NEXT : RETURN 
  112. 111  FOR I = 23 TO 14  STEP  -1: VTAB I: HTAB 1: CALL  -868: GOSUB 105: NEXT : RETURN 
  113. 112  FOR I = 1 TO 24: VTAB I: HTAB 1: CALL  -868: GOSUB 105: NEXT : RETURN 
  114. 113  FOR I = 1 TO 24: CALL 768: GOSUB 105: NEXT : RETURN 
  115. 114  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,11: RETURN 
  116. 115  POKE 32,2: POKE 33,37: POKE 34,13: POKE 35,23: RETURN 
  117. 116  IF  PEEK( -1101) < >6  THEN  VTAB 12: PRINT "________________________________________": VTAB 24: PRINT "_______________________________________";: POKE 2039,223: RETURN 
  118. 117  VTAB 12: PRINT "________________________________________": INVERSE : FOR I = 13 TO 23: VTAB I: HTAB 1: PRINT " ";: HTAB 40: PRINT " ";: NEXT : VTAB 24: PRINT " ";: NORMAL : PRINT "______________________________________";: POKE 2039,32: RETURN 
  119. 118  FOR I = 864 TO 872: READ V: POKE I,V: NEXT : RETURN 
  120. 119  DATA 201,224,144,2,233,32,76,240,253
  121. 120  FOR I = 820 TO 860: READ V: POKE I,V: NEXT : RETURN 
  122. 121  DATA  166,34,138,32,36,252,160,0,165,41,41,3,9,4,133,41,177,40,72,165,41,41,3,9,8,133,41,104,145,40,200,196,33,144,229,232,228,35,144,218,96 
  123. 122  FOR I = 768 TO 768 +50: READ V: POKE I,V: NEXT : RETURN 
  124. 123  DATA 165,35,56,233,1,72,32,36,252,165,40,133,42,165,41,133,43,164,33,136,104,56,233,1,48,17,197,34,144,13,72,32,36,252,177,40,145,42,136,16,249,48,222,160,0,32,158,252,76,34,252
  125. 124  FOR I = 1 TO 29: READ L$(I): NEXT : RETURN 
  126. 125  DATA "10  REM DRAW PICTURE"
  127. 126  DATA "20  HGR : HCOLOR= 3"
  128. 127  DATA "30  FOR I = 80 TO 160: HPLOT 0,I TO"
  129. 128  DATA "     279,I: NEXT"
  130. 129  DATA "40  HCOLOR= 0:CX = 140:CY = 50"
  131. 130  DATA "50  FOR I = 1 TO 11: READ X,Y: HPLOT"
  132. 131  DATA "     CX,CY TO X,Y: NEXT"
  133. 132  DATA "60 J = J + 1:K = J ^ 2.5"
  134. 133  DATA "70  IF 80 + K > 160 THEN 90"
  135. 134  DATA "80  HPLOT 0,80 + K TO 279,80 + K:"
  136. 135  DATA "      GOTO 60"
  137. 136  DATA "90  DATA 0,90,0,100,0,120,0,160,7"
  138. 137  DATA "     0,160,140,160,210,160,279,16"
  139. 138  DATA "     0,279,120,279,100,279,90"
  140. 139  DATA "100  HCOLOR= 3"
  141. 140  DATA "110  FOR I = 0 TO 30: HPLOT 0,I TO"
  142. 141  DATA "     279,I: NEXT"
  143. 142  DATA "120  HCOLOR= 0"
  144. 143  DATA "130  FOR I = 1 TO 13: READ X,Y:HPLOT"
  145. 144  DATA "     CX,CY TO X,Y: NEXT"
  146. 145  DATA "140  HPLOT 0,29 TO 279,29: HPLOT"
  147. 146  DATA "     0,25 TO 279,25: HPLOT 0,15 TO"
  148. 147  DATA "     279,15"
  149. 148  DATA "150  DATA 0,25,0,15,0,5,30,0,70,0"
  150. 149  DATA "     ,105,0,140,0,175,0,210,0,250"
  151. 150  DATA "     ,0,279,5,279,15,279,25"
  152. 151  DATA "160  HCOLOR= 3: HPLOT CX - 3,CY TO"
  153. 152  DATA "     CX + 3,CY: HPLOT CX,CY - 3 TO"
  154. 153  DATA "     CX,CY + 3"
  155. 154  FOR I = 1 TO 39: READ L2$(I): NEXT : RETURN 
  156. 155  DATA "10    REM DRAW PICTURE"
  157. 156  DATA "20    HGR"
  158. 157  DATA "    : HCOLOR= 3"
  159. 158  DATA "30    FOR I = 80 TO 160"
  160. 159  DATA "    : HPLOT 0,I TO 279,I"
  161. 160  DATA "    : NEXT"
  162. 161  DATA "40    HCOLOR= 0"
  163. 162  DATA "    : CX = 140"
  164. 163  DATA "    : CY = 50"
  165. 164  DATA "50    FOR I = 1 TO 11"
  166. 165  DATA "    : READ X,Y"
  167. 166  DATA "    : HPLOT CX,CY TO X,Y"
  168. 167  DATA "    : NEXT"
  169. 168  DATA "60    J = J + 1"
  170. 169  DATA "    : K = J ^ 2.5"
  171. 170  DATA "70    IF 80 + K > 160 THEN 90"
  172. 171  DATA "80    HPLOT 0,80 + K TO 279,80 + K"
  173. 172  DATA "    : GOTO 60"
  174. 173  DATA "90    DATA 0,90,0,100,0,120,0,160,70"
  175. 174  DATA "        ,160,140,160,210,160,279,160"
  176. 175  DATA "        ,279,120,279,100,279,90"
  177. 176  DATA "100   HCOLOR= 3"
  178. 177  DATA "110   FOR I = 0 TO 30"
  179. 178  DATA "    : HPLOT 0,I TO 279,I"
  180. 179  DATA "    : NEXT"
  181. 180  DATA "120   HCOLOR= 0"
  182. 181  DATA "130   FOR I = 1 TO 13"
  183. 182  DATA "    : READ X,Y"
  184. 183  DATA "    : HPLOT CX,CY TO X,Y"
  185. 184  DATA "    : NEXT"
  186. 185  DATA "140   HPLOT 0,29 TO 279,29"
  187. 186  DATA "    : HPLOT 0,25 TO 279,25"
  188. 187  DATA "    : HPLOT 0,15 TO 279,15"
  189. 188  DATA "150   DATA 0,25,0,15,0,5,30,0,70,0,1"
  190. 189  DATA "        05,0,140,0,175,0,210,0,250,0"
  191. 190  DATA "        ,279,5,279,15,279,25"
  192. 191  DATA "160   HCOLOR= 3"
  193. 192  DATA "    : HPLOT CX - 3,CY TO CX + 3,CY"
  194. 193  DATA "    : HPLOT CX,CY - 3 TO CX,CY + 3"
  195. 194  FOR I = 1 TO 27: READ L3$(I): NEXT : RETURN 
  196. 195  DATA "0300-   A5 23       LDA   $23"
  197. 196  DATA "0302-   38          SEC"
  198. 197  DATA "0303-   E9 01       SBC   #$01"
  199. 198  DATA "0305-   48          PHA"
  200. 199  DATA "0306-   20 24 FC    JSR   $FC24"
  201. 200  DATA "0309-   A5 28       LDA   $28"
  202. 201  DATA "030B-   85 2A       STA   $2A"
  203. 202  DATA "030D-   A5 29       LDA   $29"
  204. 203  DATA "030F-   85 2B       STA   $2B"
  205. 204  DATA "0311-   A4 21       LDY   $21"
  206. 205  DATA "0313-   88          DEY"
  207. 206  DATA "0314-   68          PLA"
  208. 207  DATA "0315-   38          SEC"
  209. 208  DATA "0316-   E9 01       SBC   #$01"
  210. 209  DATA "0318-   30 11       BMI   $032B"
  211. 210  DATA "031A-   C5 22       CMP   $22"
  212. 211  DATA "031C-   90 0D       BCC   $032B"
  213. 212  DATA "031E-   48          PHA"
  214. 213  DATA "031F-   20 24 FC    JSR   $FC24"
  215. 214  DATA "0322-   B1 28       LDA   ($28),Y"
  216. 215  DATA "0324-   91 2A       STA   ($2A),Y"
  217. 216  DATA "0326-   88          DEY"
  218. 217  DATA "0327-   10 F9       BPL   $0322"
  219. 218  DATA "0329-   30 DE       BMI   $0309"
  220. 219  DATA "032B-   A0 00       LDY   #$00"
  221. 220  DATA "032D-   20 9E FC    JSR   $FC9E"
  222. 221  DATA "0330-   4C 22 FC    JMP   $FC22"
  223. 222  FOR I = 1 TO 22: READ L4$(I): NEXT : RETURN 
  224. 223  DATA "1000- 4E 6F 77 20 79 6F 75 20 Now you "
  225. 224  DATA "1008- 63 61 6E 20 6C 69 73 74 can list"
  226. 225  DATA "1010- 20 79 6F 75 72 22 3A BA  your'::"
  227. 226  DATA "1018- 22 70 72 6F 67 72 61 6D 'program"
  228. 227  DATA "1020- 73 20 28 61 6C 6C 20 6F s (all o"
  229. 228  DATA "1028- 72 20 70 61 72 74 29 20 r part) "
  230. 229  DATA "1030- 77 69 74 68 20 74 68 65 with the"
  231. 230  DATA "1038- 20 61 64 64 65 64 22 3A  added':"
  232. 231  DATA "1040- BA 22 61 62 69 6C 69 74 :'abilit"
  233. 232  DATA "1048- 79 20 74 6F 20 43 48 41 y to CHA"
  234. 233  DATA "1050- 4E 47 45 20 4C 49 53 54 NGE LIST"
  235. 234  DATA "1058- 2D 44 49 52 45 43 54 49 -DIRECTI"
  236. 235  DATA "1060- 4F 4E 20 75 73 69 6E 67 ON using"
  237. 236  DATA "1068- 22 3A BA 22 74 68 65 20 '::'the "
  238. 237  DATA "1070- 41 70 70 6C 65 20 41 72 Apple Ar"
  239. 238  DATA "1078- 72 6F 77 20 4B 65 79 73 row Keys"
  240. 239  DATA "1080- 2E 20 59 6F 75 72 20 6D . Your m"
  241. 240  DATA "1088- 6F 6E 69 74 6F 72 22 00 onitor'."
  242. 241  DATA "1090- 0F 11 DD 01 BA 22 62 65 ..].:'be"
  243. 242  DATA "1098- 63 6F 6D 65 73 20 61 20 comes a "
  244. 243  DATA "10A0- 27 53 65 61 72 63 68 20 'Search "
  245. 244  DATA "10A8- 57 69 6E 64 6F 77 27 20 Window'"
  246. 245  FOR I = 1 TO 16: READ L5$(I): NEXT : RETURN 
  247. 246  DATA "*A 002 HELLO"
  248. 247  DATA "*A 052 ALPHA PLOT"
  249. 248  DATA " A 024 APPLE MECHANIC"
  250. 249  DATA " A 008 BEAGLE BAG"
  251. 250  DATA "*A 062 DOS BOSS"
  252. 251  DATA " B 038 DOUBLE-TAKE"
  253. 252  DATA " B 010 FLEX TEXT"
  254. 253  DATA " B 034 FRAME-UP"
  255. 254  DATA " B 033 PRONTO-DOS"
  256. 255  DATA "*A 004 TIP DISK#1"
  257. 256  DATA " A 018 TYPEFACES"
  258. 257  DATA " A 055 UTILITY CITY"
  259. 258  DATA " T 003 SNIFFUM"
  260. 259  DATA " B 005 MEADOW MUFFIN"
  261. 260  DATA " I 010 CITY DUMP"
  262. 261  DATA " B 000 HAIR GROW"
  263. 262  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>================<CTRL-M>DOUBLE-TAKE DEMO<CTRL-M>MARK S. SIMONSEN<CTRL-M>(C) 1983<CTRL-M>BEAGLE BROS INC.<CTRL-M>================<CTRL-M>